﻿Imports extranet.BE
Imports extranet.BC
Imports MetodosComuns

Partial Class forum_mediar_post
    Inherits System.Web.UI.Page
    Dim nomeCategoria As String
    Dim nomeSubcategoria As String
    Dim idTopico As String
    Dim idPost As String
    Dim tipo As String
    Dim objBETopico As BETopico
    Dim objBEPost As BEPost
    Dim objBEMensagem As BEMensagem

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim objBESeguranca As New BESeguranca
        Dim objBEUsuario As BEUsuario = Session("objBEUsuario")

        If IsNothing(objBEUsuario) Then Response.Redirect(TELA_LOGOUT)
        Session("strTela") = MetodosComuns.GetCurrentPageName()
        If Not IsPostBack Then          ' SEGURANÇA
            objBESeguranca = BCSeguranca.SelecionaPermissoes(objBEUsuario.GrupoAcesso, Session("strTela"))
            If Not objBESeguranca.Autorizado Then Response.Redirect(TELA_LOGOUT)
            Session("objBESeguranca") = objBESeguranca
        Else
            objBESeguranca = Session("objBESeguranca")
        End If

        If objBESeguranca.Escrita Then 'Verificar aki se usuário tem permissao de administrador

            If Not IsPostBack Then
                objBETopico = New BETopico
                objBEPost = New BEPost
                objBEMensagem = New BEMensagem

                PreencheddlMsgPadrao()
                PreenchetxtMsgMediador()

                nomeCategoria = Request.QueryString("nc")
                nomeSubcategoria = Request.QueryString("ns")
                tipo = Request.QueryString("tipo") 'pode ser "topico" ou "post"
                idTopico = Request.QueryString("idtopico")

                objBETopico = BCForum.SelecionaTopico(Convert.ToInt32(idTopico))
                If tipo = "post" Then
                    idPost = Request.QueryString("idpost")
                    objBEPost = BCForum.SelecionaPost(Convert.ToInt32(idPost))
                    FCKeditor1.Value = objBEPost.MensagemPost.Mensagem
                    lblVisivel.Visible = False
                    DropDownList1.Visible = False
                    lblCaminho.Text = nomeCategoria & " >> " & nomeSubcategoria & " >> " & objBETopico.Titulo
                Else
                    FCKeditor1.Value = objBETopico.MensagemTopico.Mensagem
                    If objBETopico.Visivel = True Then
                        DropDownList1.SelectedIndex = 1
                    Else
                        DropDownList1.SelectedIndex = 0
                    End If
                    lblCaminho.Text = nomeCategoria & " >> " & nomeSubcategoria
                End If
                lblPergunta.Text = objBETopico.MensagemTopico.Mensagem
                objBEMensagem = BCMensagem.BuscaMensagem(objBETopico.IdMensagem)
                Label5.Text = "Colaborador " & objBEMensagem.Remetente & " perguntou:"
            End If
        Else
            Response.Redirect(TELA_LOGOUT)
        End If
    End Sub

    Private Sub PreencheddlMsgPadrao()
        ddlMsgPadrao.Items.Clear()
        If rbtnList.SelectedValue = "Aprovado" Then
            ddlMsgPadrao.Items.Add("Mensagem Aprovado 1")
            ddlMsgPadrao.Items.Add("Mensagem Aprovado 2")
            ddlMsgPadrao.Items.Add("Mensagem Aprovado 3")
            ddlMsgPadrao.Items.Add("Mensagem Aprovado 4")
            ddlMsgPadrao.Items.Add("Mensagem Aprovado 5")
        Else
            ddlMsgPadrao.Items.Add("Mensagem Reprovado 1")
            ddlMsgPadrao.Items.Add("Mensagem Reprovado 2")
            ddlMsgPadrao.Items.Add("Mensagem Reprovado 3")
            ddlMsgPadrao.Items.Add("Mensagem Reprovado 4")
            ddlMsgPadrao.Items.Add("Mensagem Reprovado 5")
        End If
    End Sub

    Private Sub PreenchetxtMsgMediador()
        If rbtnList.SelectedValue = "Aprovado" Then
            Select Case ddlMsgPadrao.SelectedIndex
                Case 0
                    txtMsgMediador.Text = "Mensgem de Aprovação 1"
                Case 1
                    txtMsgMediador.Text = "Mensgem de Aprovação 2"
                Case 2
                    txtMsgMediador.Text = "Mensgem de Aprovação 3"
                Case 3
                    txtMsgMediador.Text = "Mensgem de Aprovação 4"
                Case 4
                    txtMsgMediador.Text = "Mensgem de Aprovação 5"
            End Select
        Else
            Select Case ddlMsgPadrao.SelectedIndex
                Case 0
                    txtMsgMediador.Text = "Mensgem de Reprovação 1"
                Case 1
                    txtMsgMediador.Text = "Mensgem de Reprovação 2"
                Case 2
                    txtMsgMediador.Text = "Mensgem de Reprovação 3"
                Case 3
                    txtMsgMediador.Text = "Mensgem de Reprovação 4"
                Case 4
                    txtMsgMediador.Text = "Mensgem de Reprovação 5"
            End Select
        End If
    End Sub

    Protected Sub rbtnList_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbtnList.SelectedIndexChanged
        PreencheddlMsgPadrao()
        PreenchetxtMsgMediador()
    End Sub

    Protected Sub ddlMsgPadrao_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlMsgPadrao.Load
        PreenchetxtMsgMediador()
    End Sub

    Protected Sub btnEnviar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEnviar.Click
        Dim objBEUsuario As BEUsuario = Session("objBEUsuario")
        Dim objBEMensagem As New BEMensagem
        Dim objBETopico As BETopico
        Dim strAssunto As String
    Dim strDestinatario As String = ""
    Dim strRemetente As String = ""
    Dim strMsgEmail As String = ""

        tipo = Request.QueryString("tipo")
        Select Case rbtnList.SelectedValue
            Case "Aprovado"
                objBEMensagem.Mensagem = FCKeditor1.Value
                objBEMensagem.Status = "APROVADO"
                objBEMensagem.JustificativaReprovacao = txtMsgMediador.Text
                objBEMensagem.Id = Convert.ToInt32(Request.QueryString("idmsg"))
                objBEMensagem.Aprovador = objBEUsuario.Usuario
                BCForum.AprovaTopicoOuPost(objBEMensagem)
                If tipo = "topico" Then
                    objBETopico = New BETopico
                    objBETopico.Id = Request.QueryString("idtopico")
                    If DropDownList1.SelectedIndex = 1 Then
                        objBETopico.Visivel = True
                    Else
                        objBETopico.Visivel = False
                    End If
                    BCForum.AlteraVisibilidadeTopico(objBETopico)
                End If
                strAssunto = "Comunicado Aprovação de " & Request.QueryString("tipo")
            Case "Reprovado"
                Dim path As String = Server.MapPath("..\imagens\forum\")
                objBEMensagem.Id = Convert.ToInt32(Request.QueryString("idmsg"))
                If tipo = "post" Then
                    idPost = Request.QueryString("idpost")
                    BCForum.ExcluiPost(Convert.ToInt32(idPost), path)
                Else
                    idTopico = Request.QueryString("idtopico")
                    BCForum.ExcluiTopico(Convert.ToInt32(idTopico), path)
                End If
                strAssunto = "Comunicado Reprovação de " & Request.QueryString("tipo")
        End Select
        strMsgEmail = txtMsgMediador.Text
        'strRemetente = "extranet@reebokfitness.com.br"
        'If tipo = "post" Then
        '    Dim obj1BEPost As New BEPost
        '    Dim obj1BEUsuario As New BEUsuario
        '    objBEPost.MensagemPost = New BEMensagem

        '    idPost = Request.QueryString("idpost")
        '    obj1BEPost = BCForum.SelecionaPost(Convert.ToInt32(idPost))
        '    obj1BEUsuario = BCUsuario.Selecionar(obj1BEPost.MensagemPost.Remetente)
        '    strDestinatario = objBEUsuario.Email
        'Else
        '    Dim obj2BETopico As New BETopico
        '    Dim obj2BEUsuario As New BEUsuario
        '    obj2BETopico.MensagemTopico = New BEMensagem

        '    idTopico = Request.QueryString("idtopico")
        '    obj2BETopico = BCForum.SelecionaTopico(Convert.ToInt32(idTopico))
        '    objBEUsuario = BCUsuario.Selecionar(obj2BETopico.MensagemTopico.Remetente)
        '    strDestinatario = objBEUsuario.Email
        'End If
        'MetodosComuns.EnviaEmail("ricardodd@gmail.com", strMsgEmail, "Novo post adicionado", "extranet@reebokfitness.com.br", "extranet@reebokfitness.com.br")

        Response.Redirect("adm_pendentes.aspx")
    End Sub

    Protected Sub btnCancelar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        Response.Redirect("adm_pendentes.aspx")
    End Sub
End Class
